home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue49 / Clinic / TermAppU.dfm / TermAppU.txt
Text File  |  1999-06-02  |  2KB  |  72 lines
  1. object MainForm: TMainForm
  2.   Left = 202
  3.   Top = 109
  4.   BorderStyle = bsDialog
  5.   Caption = 'Process Launcher And Terminator'
  6.   ClientHeight = 54
  7.   ClientWidth = 432
  8.   Color = clBtnFace
  9.   Font.Charset = DEFAULT_CHARSET
  10.   Font.Color = clWindowText
  11.   Font.Height = -11
  12.   Font.Name = 'MS Sans Serif'
  13.   Font.Style = []
  14.   OldCreateOrder = True
  15.   OnCreate = FormCreate
  16.   PixelsPerInch = 96
  17.   TextHeight = 13
  18.   object btnLaunch1: TSpeedButton
  19.     Left = 8
  20.     Top = 16
  21.     Width = 89
  22.     Height = 22
  23.     Hint = 'Launch program with ShellExecuteEx'
  24.     Caption = '&Open (1)'
  25.     ParentShowHint = False
  26.     ShowHint = True
  27.     OnClick = btnLaunch1Click
  28.   end
  29.   object btnLaunch2: TSpeedButton
  30.     Left = 112
  31.     Top = 16
  32.     Width = 89
  33.     Height = 22
  34.     Hint = 'Launch program with CreateProcess'
  35.     Caption = 'O&pen (2)'
  36.     ParentShowHint = False
  37.     ShowHint = True
  38.     OnClick = btnLaunch2Click
  39.   end
  40.   object btnTerminate1: TSpeedButton
  41.     Left = 216
  42.     Top = 16
  43.     Width = 89
  44.     Height = 22
  45.     Hint = 'Terminate process with TerminateProcess'
  46.     Caption = 'Terminate (&1)'
  47.     Enabled = False
  48.     ParentShowHint = False
  49.     ShowHint = True
  50.     OnClick = btnTerminate1Click
  51.   end
  52.   object btnTerminate2: TSpeedButton
  53.     Left = 320
  54.     Top = 16
  55.     Width = 89
  56.     Height = 22
  57.     Hint = 'Terminate process in "clean" fashion'
  58.     Caption = 'Terminate(&2)'
  59.     Enabled = False
  60.     ParentShowHint = False
  61.     ShowHint = True
  62.     OnClick = btnTerminate2Click
  63.   end
  64.   object dlgOpen: TOpenDialog
  65.     FileName = 'calc.exe'
  66.     Filter = 'Programs (*.exe)|*.exe|All files (*.*)|*.*'
  67.     Title = 'Launch Program'
  68.     Left = 208
  69.     Top = 8
  70.   end
  71. end
  72.